home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / sortls.rpl < prev    next >
Text File  |  1993-02-18  |  427b  |  15 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ SORTLS by Joe Horn, in SRPL format
  3. ":: CK1&Dispatch # 5h
  4.   :: INNERCOMP 1LAMBIND 1GETLAM
  5.     #1+_ONE_DO 1GETLAM ROLL # 0h INDEX@
  6.       BEGIN 2DUP SWAP#- #2/ DUP#0<>
  7.       WHILE
  8.         :: OVERSWAP #-DUP #4+PICK 5PICK (1420A) %0<>
  9.           ITE ROTDROPSWAP SWAPDROP
  10.         ;
  11.       REPEAT ROT2DROP UNROLL
  12.     LOOP 1GETABND {}N
  13.   ;
  14. ;"
  15. @ Change (1420A) to PTR 1420A if using RPL.LIB to compile.